home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702b.d64 / dia viewer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  494b  |  16 lines
  1. 3 IFC=1THEN35
  2. 10 A=A+1:IFA=1THENLOAD"MPMLOADER",8,8
  3. 12 INPUT"[147]HINTERGRUND";A:POKE53281,A
  4. 13 INPUT"VORDERGRUND";A
  5. 14 PRINT"HANDELT ES SICH UM FARBBILDER (J/N)":POKE198,0:WAIT198,1:GETF$
  6. 15 INPUT"[147]DISKETTE MIT LORES-BILD. EINLEGEN";A$
  7. 16 POKE646,A
  8. 17 PRINT"[147]BITTE WARTEN"
  9. 18 FORT=55296TO55296+999:POKET,A:NEXT:T=0:D=1:DIM A$(100)
  10. 19 READ A$(D):D=D+1:IFA$(D-1)<>"*"THEN19
  11. 20 T=T+1:IFA$(T)="*"THENT=0:GOTO20
  12. 30 POKE252,4:POKE251,0:SYS828,A$(T):IFF$="J"THENC=1:C$=A$(T)+".":LOADC$,8,8
  13. 35 POKE198,0:WAIT198,1:GETA$
  14. 40 GOTO20
  15. 100 DATA COWBOY,ASTERIX,*
  16.